#! /usr/bin/perl
use strict;
use warnings;

#ny test

my $model = `cat /proc/meminfo | grep '^Cached'`;
$model =~ s/.*(\d{6})\skB/$1/;

print $model;
